home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP NET Rehberi Eylül 1998.iso / ftp / iftp21 / FTPHUB.ZIP / FTPHUB.BAT next >
DOS Batch File  |  1997-05-23  |  7KB  |  188 lines
  1. @echo off
  2. :====================================================================
  3. : FIDOFTP.BAT  (c) copyright 1997 Santronics Software Inc
  4. :
  5. : NOTE: This batch file is designed for PX/WINS sysops.
  6. :
  7. : This batch file will handle complete FTPHUB operations.  It does
  8. : complete FTN netmail, echos and TICS and Internet Email and Newsgroups.
  9. : In addition, it will do PXFIDS, which offers a way to send FTN data
  10. : (netmail, echos and tics) to downlinks and uplinks.
  11. :
  12. : This batch file does the following:
  13. :
  14. : EXPORT:  Move files to be sent to the EXPORT directory.
  15. :
  16. : 1) If wcgate is defined, move all wcmail gateway move to export
  17. :    directory.
  18. :
  19. : 2) Run PXNET to create *.PKT files for routed netmail to FTP HUB.
  20. :    The *.PKT files are created in the export directory.
  21. :
  22. : 3) Move all echo bundles belonging to the FTP HUB to the export
  23. :    directory.
  24. :
  25. : 4) if available, runs PXFIDS /EXPORT to scan PX data queues to
  26. :    create internet email messages to route to down links using
  27. :    PXFIDS.
  28. :
  29. : DIAL: Dial FTP HUB, send/receive all files.
  30. :
  31. : 1) Use the new iFTP.EXE intelligent FTP script system to reliably
  32. :    sent and receive all files.
  33. :
  34. : IMPORT:  Move all new files into appropiate directories.
  35. :
  36. : 1) Make PXNET and ECHO QUEUE files as sent
  37. :
  38. : 2) Run PXFIDS to process any incoming FIDS Internet Email. PXFIDS
  39. :    will process what it needs, and leave the rest behind.
  40. :
  41. : 3) Unzip and move all remaining Internet email and newsgroup to
  42. :    the WCMAIL gateway directory.
  43. :
  44. : 4) Move all echo mail files to the inbound\echo directory.
  45. :
  46. : 5) Move all tic files to the inbound\tics directory.
  47. :
  48. : 6) Move all remaining files to the inbound directory.
  49. :
  50. : 7) Create semaphores to trigger PX/WINS PXECHO
  51. :
  52. :====================================================================
  53. :                      VARIABLES TO BE DEFINED
  54. :====================================================================
  55.  
  56. : bname         bundle name for your ftp hub. See BUNDNAME.EXE on CD
  57. : fido          fido address of ftp hub
  58. : export        local export directory, make a directory call export
  59. : import        local import directory, make a directory call import
  60. : wcgate        WC5 Gateway Host directory, ie. c:\wc5\gateway\paonline
  61.  
  62.  set bname=
  63.  set fido=1:270/101
  64.  set export=export
  65.  set import=import
  66.  set wcgate=c:\wc5\gateway\paonline
  67.  
  68. :====================================================================
  69. :                       START BATCH OPERATION
  70. :====================================================================
  71.  
  72. :--------------------------------------------------------------------
  73. : check to make sure bname is defined
  74. :--------------------------------------------------------------------
  75.  
  76.   if .%bname% == .. goto bnameerr
  77.  
  78. :--------------------------------------------------------------------
  79. : If using wcmail, then move outbound mail to export directory
  80. :--------------------------------------------------------------------
  81.  
  82.   if .%wcgate%. == .. goto nowcout
  83.   if not exist %wcgate%\*.cmd move %wcgate%\*.cmd export
  84.   if not exist %wcgate%\*.xqt move %wcgate%\*.xqt export
  85.   if not exist %wcgate%\*.dat move %wcgate%\*.dat export
  86. :nowcout
  87.  
  88. :--------------------------------------------------------------------
  89. : check for PX exported fido mail, if any, move to the export
  90. : directory
  91. :--------------------------------------------------------------------
  92.  
  93.   pxnet /SCAN /PACK %fido% /FILE %export%\%bname%.pkt
  94.   if exist outbound\%bname%.* move outbound\%bname%.* %export%
  95.  
  96. :--------------------------------------------------------------------
  97. : Is using FIDS, then check for any fids mail
  98. :--------------------------------------------------------------------
  99.  
  100.   if exist pxfids.exe pxfids /EXPORT
  101.  
  102. :--------------------------------------------------------------------
  103. : Dial your provider and run iFTP script
  104. :--------------------------------------------------------------------
  105.  
  106.   iftp /dial /run ftphub
  107.   if errorlevel 1 goto raserror
  108.  
  109. :--------------------------------------------------------------------
  110. : Mark PX queues as sent
  111. :--------------------------------------------------------------------
  112.  
  113.   pxnet /sent %fido%
  114.   viewout /sent %fido%
  115.  
  116. :--------------------------------------------------------------------
  117. : If something came in so, process it
  118. :--------------------------------------------------------------------
  119.  
  120.   if not exist %import%\*.* goto end
  121.  
  122. :--------------------------------------------------------------------
  123. : Check for any import FIDS mail.  FIDS will process any inbound
  124. : internet email and delete the files in the import directory,
  125. : leaving behind the rest for others to process.
  126. :--------------------------------------------------------------------
  127.  
  128.   if exist pxfids.exe pxfids /IMPORT
  129.  
  130. :--------------------------------------------------------------------
  131. : if using wcgate, then check for imported internet and newsgroups
  132. :--------------------------------------------------------------------
  133.  
  134.   if .%wcgate%. == .. goto nowcin
  135.   if exist %import%\*.d move %import%\*.d %wcgate%
  136.   if exist %import%\*.x move %import%\*.x %wcgate%
  137.   if not exist %import%\*.baz pkunzip -o %import%\*.baz %wcgate%
  138.   if not exist %import%\*.baz del %import%\*.baz
  139. :nowcin
  140.  
  141. :--------------------------------------------------------------------
  142. : move bundles into inbound\echo directory
  143. :--------------------------------------------------------------------
  144.  
  145.   if exist %import%\*.MO? move %import%\*.MO? inbound\echo
  146.   if exist %import%\*.TU? move %import%\*.TU? inbound\echo
  147.   if exist %import%\*.WE? move %import%\*.WE? inbound\echo
  148.   if exist %import%\*.TH? move %import%\*.TH? inbound\echo
  149.   if exist %import%\*.FR? move %import%\*.FR? inbound\echo
  150.   if exist %import%\*.SA? move %import%\*.SA? inbound\echo
  151.   if exist %import%\*.SU? move %import%\*.SU? inbound\echo
  152.  
  153. :--------------------------------------------------------------------
  154. : move tics to inbound\tics directory
  155. :--------------------------------------------------------------------
  156.  
  157.   if exist %import%\*.TIC move %import%\*.TIC inbound\tics
  158.  
  159. :--------------------------------------------------------------------
  160. : move remaining files to inbound directory, px expects TIC files
  161. : to be in the normal inbound directory
  162. :--------------------------------------------------------------------
  163.  
  164.   if exist %import%\*.*   move %import%\*.* inbound
  165.  
  166.   echo >inbound\sema\$toss.0
  167.   echo >inbound\sema\$tics.0
  168.  
  169.   goto end
  170.  
  171. :-----------------------------------------------------------------------
  172. :bnameerr
  173.   echo define the bname variable. see bundname.exe
  174.  
  175. :-----------------------------------------------------------------------
  176. :raserror
  177.  
  178.   ECHO FAILURE TO CONNECT
  179.   goto end
  180.  
  181. :end
  182.  set bname=
  183.  set fido=
  184.  set export=
  185.  set import=
  186.  set wcgate=
  187.  
  188.